home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs19.d81
/
poster.sda
/
PM BOOT
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
5KB
|
126 lines
1 PRINTCHR$(147):PRINTCHR$(142):POKE53280,0:POKE53281,0
2 GOSUB20
3 POKE53265,11
4 OPEN 1,8,8,"PM,S,R"
6 SYSIN:PRINTLEFT$(IN$,PEEK(142))
8 IFST=0THEN6
10 CLOSE1
11 POKE53265,27
14 GOTO50
18 :
20 IN$="Z":FORI=1TO7:IN$=IN$+IN$:NEXT
22 IN$=LEFT$(IN$,127)+IN$
24 IN=896
26 FORI=IN TOIN+41:READN:POKEI,N:NEXT
28 DATA 160,2,177,45,153,137,0,200
30 DATA 192,6,208,246,162
32 DATA 1,32,198,255,32,228,255,201
34 DATA 13,240,15,164,142,145,140,200
36 DATA 132,142,196,139,240,4,165
38 DATA 144,240,234,76,204,255
40 RETURN
50 PRINT" [158]PRESS ANY KEY TO[160]CONTINUE"
180 POKE198,0:WAIT198,1:GETA$:IFA$="*"THEN190
190 IFLL>0THEN1780
200 PRINTCHR$(147)
210 CC$=CHR$(19):FORX=1TO23:CC$=CC$+CHR$(17):NEXT
220 BL$=" "
230 FORX=1TO39:LINE$=LINE$+CHR$(192):NEXT
240 GOSUB850
250 PRINTCHR$(147);
260 PRINTCHR$(14);
270 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
280 PRINT"[153]**[206][207][212][197][211][160][198][210][207][205][160][212][200][197][160][196][197][211][203][160][207][198][160][205][213][211][201][195] [205][193][206]3**"
290 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
300 PRINT" [195]-64 [208][207][211][212][197][210] [205][193][203][197][210]"
310 PRINT" [194]Y [205][213][211][201][195] [205][193][206]3"
320 PRINT
330 PRINT"[212]HIS UTILITY WILL CONVERT YOUR FAVORITE"
340 PRINT"[196][207][207][196][204][197]!, [210]UN[208]AINT [200]I-RES OR COMPATIBLE"
350 PRINT"PICTURE TO POSTER-SIZE (APX 8[216] LARGER)."
360 PRINT"[193]LL THAT'S NECESSARY IS TO FOLLOW THE"
370 PRINT"PROMPTS AS THEY ARE DISPLAYED. [212]HEY ARE"
371 PRINT"PRETTY MUCH SELF-EXPLANATORY."
372 PRINT"[193]FTER DISPLAYING SOME INFO, THE PROGRAM"
373 PRINT"WILL ASK YOU FOR THE FILENAME OF THE"
374 PRINT"PICTURE TO PRINT AND WHICH DRIVE IT IS"
375 PRINT"ON. [201]T WILL THEN DISPLAY THE PICTURE"
376 PRINT"AND ASK IF THAT'S THE ONE YOU WANT TO"
377 PRINT"PRINT. [201]F YOU ANSWER '[206][207]' THE PROGRAM"
378 PRINT"WILL ASK IF YOU WANT TO PRINT ANOTHER"
379 PRINT"OR QUIT. [202]UST TYPE THE FIRST LETTER"
380 PRINT"OF YOUR CHOICE AND IT WILL BE EXECUTED."
381 PRINT" [205][207][210][197]->"
390 PRINT" [208][210][197][211][211][160][193][206][217][160][203][197][217][160][198][207][210][160][208][193][199][197][160][212][215][207]"
400 POKE198,0:WAIT198,1:GETA$:IFA$=""THEN410
410 PRINT"[147]"
420 PRINT"[154] [208][210][197][211][211] [193][206][217] [203][197][217][154] [198][207][210][160][215][201][206][196][207][215] "
430 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
440 PRINT"[153]*[206][207][212][197][211][160][198][210][207][205][160][212][200][197][160][196][197][211][203][160][207][198][160][205][213][211][201][195] [205][193][206]3*-2"
450 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
460 PRINT"'[208]' WILL TAKE YOU BACK TO THE FILENAME"
470 PRINT"PROMPT AND '[209]' WILL END THE PROGRAM."
480 PRINT"'[217][197][211]' WILL START THE PRINTING. [193]FTER"
490 PRINT"THE PRINTING IS DONE, YOU WILL BE ASKED"
500 PRINT"AGAIN '[208]RINT OR [209]UIT'"
510 PRINT"[212]HE PICTURE WILL BE PRINTED IN STRIPS"
520 PRINT"1/4 OF THE SCREEN AT A TIME STARTING"
530 PRINT"WITH THE LEFT 1/4 OF THE PICTURE, WITH"
540 PRINT"3 BLANK LINES BETWEEN EACH SECTION."
541 PRINT"[193]SSEMBLING THE POSTER WILL REQUIRE SOME"
542 PRINT"CUTTING AND PASTING, AND CAREFUL DETAIL"
543 PRINT"MATCHING."
544 PRINT"[212]HE BEST PICTURES TO USE ARE THOSE WITH"
545 PRINT"MINIMAL DETAIL. [211]INCE THE PROGRAM USES"
546 PRINT"[193]LPHA CHARACTERS TO PRINT THE PIXELS,"
547 PRINT"PIX /MUCH DETAIL DON'T PRINT WELL."
550 PRINT"[212]HIS PRG WORKS WITH THE 4023/1526/802"
551 PRINT"PRINTERS. [206][207] OTHER WILL WORK."
560 PRINTCC$;CHR$(159);
570 PRINT" [208][210][197][211][211] _[159] [212][207][160][204][207][193][196][160][156][217][207][213][210][160][208][210][207][199][210][193][205] [146]"
580 PRINTCHR$(19)
590 POKE198,0:WAIT198,1:GETA$:IFA$="_"THEN950
600 SYS49152
610 PRINTLEFT$(CC$,2);
620 PRINTCHR$(158);
630 PRINTCHR$(18);CHR$(176);LEFT$(LINE$,37);CHR$(174)
640 PRINTCHR$(18);CHR$(221);" ([195])1991 [215][201][212][195][200] [196][207][195][212][207][210] [208][210][207][196][213][195][212][201][207][206][211] ";CHR$(221)
645 PRINTCHR$(18);CHR$(221);" ";CHR$(221)
650 PRINTCHR$(18);CHR$(221);"[212]HIS PROGRAM IS [198][210][197][197]-[193][195][195][197][211][211] [215][193][210][197], [207][203] ";CHR$(221)
655 PRINTCHR$(18);CHR$(221);"TO COPY BUT [206][207][212] TO SELL. ";CHR$(221)
660 PRINTCHR$(18);CHR$(221);" ";CHR$(221)
665 PRINTCHR$(18);CHR$(221);" [206][207][212] [212][207] [194][197] [213][208][204][207][193][196][197][196] [212][207] [195][207][205][208][213][211][197][210][214][197]! ";CHR$(221)
670 PRINTCHR$(18);CHR$(221);" ";CHR$(221)
680 PRINTCHR$(18);CHR$(221);"[213]PLOADING TO ANY OTHER COMMERCIAL ";CHR$(221)
690 PRINTCHR$(18);CHR$(221);"SERVICE WILL ONLY BE WITH THE EXPRESS";CHR$(221)
700 PRINTCHR$(18);CHR$(221);"WRITTEN PERMISSION OF THE AUTHOR. ";CHR$(221)
710 PRINTCHR$(18);CHR$(221);" ";CHR$(221)
720 PRINTCHR$(18);CHR$(221);"[205]AY BE UPLOADED TO ANY [194][194][211] WITHOUT ";CHR$(221)
730 PRINTCHR$(18);CHR$(221);"PERMISSION OF THE AUTHOR. ";CHR$(221)
740 PRINTCHR$(18);CHR$(221);" ";CHR$(221)
750 PRINTCHR$(18);CHR$(221);"[193][206][217] UPLOADING PERMISSION IS ON THE ";CHR$(221)
760 PRINTCHR$(18);CHR$(221);"STRICT CONDITION THAT THE PROGRAM BE ";CHR$(221)
770 PRINTCHR$(18);CHR$(221);" DISTRIBUTED ONLY IN IT'S ORIGINAL ";CHR$(221)
780 PRINTCHR$(18);CHR$(221);"[211][196][193] FORMAT AND THAT THIS [195][207][208][217][210][201][199][200][212] ";CHR$(221)
790 PRINTCHR$(18);CHR$(221);"NOTICE BE LEFT INTACT AND UNALTERED. ";CHR$(221)
800 PRINTCHR$(18);CHR$(173);LEFT$(LINE$,37);CHR$(189)
810 PRINTCC$;"[145]"BL$:PRINTBL$CHR$(19)
820 POKE198,0:WAIT198,1:GETA$
830 SYS49214
840 GOTO560
850 FORJ=49152TO49289:READA:POKEJ,A:NEXT:RETURN
860 DATA 32,124,192,162,0,189,0,4,157,0,193,189,0,5,157,0
870 DATA 194,189,0,6,157,0,195,189,0,216,157,0,197,189,0,217
880 DATA 157,0,198,189,0,218,157,0,199,202,208,217,162,216,189,0
890 DATA 7,157,0,196,189,0,219,157,0,200,202,208,241,96,32,124
900 DATA 192,162,0,189,0,193,157,0,4,189,0,194,157,0,5,189
910 DATA 0,195,157,0,6,189,0,197,157,0,216,189,0,198,157,0
920 DATA 217,189,0,199,157,0,218,202,208,217,162,216,189,0,196,157
930 DATA 0,7,189,0,200,157,0,219,202,208,241,96,162,0,181,217
940 DATA 9,128,149,217,232,224,25,208,245,96
950 POKE927,0:POKE1023,0:POKE53280,0:POKE53281,0:C$=CHR$(34)
960 PRINT"[147]"TAB(11)"[194][207][207][212][201][206][199]...[144]"
970 PRINT"L[207]"C$"POSTER MAKER"C$",8"
980 PRINT"RUN";
990 POKE631,13:POKE632,13:POKE198,2:END